executive routine 24 October 1966 



psf=iot 


0077 


bef=iot 0177 


bff=iot 


0277 


rpn=iot 


0477 


rcn^iot 0577 


lar=iot 


0677 


ben=iot 


1177 


bfn=iot 1277 


lpf=iot 


1377 


scn=iot 


1577 


ad1=iot 1677 


rsb=iot 


2077 


srw=iot 


2677 


sei=iot 2777 


sps=:iot 


3077 


sbf=iot 


3277 


sti=iot 3377 


sdl=iot 


3477 
4077 


sxw=iot 


3677 


rbe=iot 3777 


rsn=iot 


srs=iot 


^77 


lqn=iot 4377 


soq=iot 


4477 


tts=iot 


5177 


tnr=iot 5277 


lbe=iot 


5577 


uf=iot 5777 


ldc=iot 6077 


tsn=iot 


6177 


ncb=12 


/size of typewriter buffer 






ewv=5 


/restart level 






npb=l40 


/punch buffer size 
/restart level 






pwnt=30 






rwm=4o 


/reader restart level 






nuf=20 


/number of user fields 






3/ 


add 

dap 
jmp 


• 
. 1 

• 






/buffers 


> 








b. 


tsn 
tts 
lem 
law 


/initial entry 
5000 






sut. 


lia 
lar 
sen 
ben 
bff 
psf 
spn 
ben 
bff 
add 


(xct 
(5001 








sas 








jmp 


sut 








rsf 










usf 










cli 










Iqn 










Ibe 










Ipf 










lar 










sen 










szs 


10 








Jmp 


par 








dzm 


sd+22 








lac 


err 








dac 


dcl-^ 








jmp 


par 








constants 






b 1 ncbx5 1 npb/ 






eb. 










/service io 









rpf=iot 
psn=iot 
spn=iot 
sbr=iot 
sbe=iot 
siw=iot 
rsf=iot 
la2=iot 
usn=iot 
tsf=iot 



0377 
1077 

1477 

2577 
3177 

3577 
4177 

5077 
5677 
6277 



srv, 
srr, 

rip. 



srO, 



srl. 



sr2, 
sr3, 
sr5, 
sr4, 

/set 
sat. 



dap 


srl 








srw 










skp 




/skp i : 


if reader running 


jmp 


srO 








rrb 










lac 


• 








ral 


8s 








rcr 


8s 








dac 


i rip 


1 






rpa- 


-i 








idx 


rip 








sad 


(lac 
(lac 


erb 






lac 


b 






dac 


rip 








lio 


cl 








dio 


rrs 


/buffer 


not 


empty 


sub 


rop 








sza 


i 








dio 


srr 


/full, 1 


shut 


off reader 


sma 










sub 


(erb- 
(-rwni 


b 






sad 


I 






rsn 




/nearly 


full 


,, restart user 


srw 










xct 


srr 








Jmp 


sr4 








Jmp 


srr 2 








rpn 










sni 


i 








Jmp 


sr5 








rcn 










sni 










Jmp 


• 








Jsp 


sat 








sps 










Jmp 


sr2 








sti 










Jmp 


sr3 








Jsp 


ifO+1 








psf 










tyi 










Jsp 


itf 








Jmp 


sr4 








Jsp 


ite 








tyo 










Jmp 


sr4 








Jsp 


sat 








Jsp 


ite 








ppa 










idx 


srl 








Jmp 


srl 








5onsc 


>le or 


punch buffer 


• index 


dap 


sal 








cla 










rcl 


4s 








add 


(bop- 


1 






dap 


iel 








add 


(bip-bop 






dap 


ifl 








add 


(bew- 


bip 






dap 


ie2 








add 


(bor- 


bew 






dap 


itl 









"1^^- M A-*—-- 



«iap it2 ^ 

idx it2 ^ 

sal, Jmp • 

/index and test if buffer empty 

ite, dap ie7 

lac i iel 

dap .+2 

law 377 

and • 

lia 
iel, idx bop 
it2, sad bor+1 
itl, lac bor 

dac i iel 
ie2, sad bew 

bff 

sad i ifl 

ben 
ie7> Jmp • 

/index and test if buffer full 

itf , dap if7 

lac i ifl 

dap . 1 

lac • 

rcr 8s 

ral 8s 

dac i .-3 

bef 
ifl, idx bip 

sad i it2 

lac i itl 

dac i ifl 

sad i iel 

bfn 

idx i ie2 

sad i it2 

lac i itl 

dac i ie2 
if 7, Jmp • 

/clear typewriter buffer 

ifO, psn 

dap if3 

bff 

lac i ifl 

dac i iel 
if 3, Jmp . 

/buffer pointer table 

bop, z=0 
b+z 
b+z 
b+z 
b+z 
b+z 
b+z 
b+z 
b+z 

bip, z=0 



z=z+l 


}■ 


z=z+ncb 


/2 


z=z+ncb 


/3 


z=z+ncb 


^"^ 


z=z+ncb 


p 


z=z+ncb 


^ 


z=z+l 


/7 


z=z+npb 


/lO (pimch) 



bew. 



bor. 



rb. 



ra 



rrO, 



it8. 



rrs 



b+z 


z=z+i 


?■ 


b+z 


z=z+ncb 


^ 


b+z 


z=z+ncb 


/? 


b+z 


z=z+ncb 


^ 


b+z 


z=z+ncb 


/5 


b+z 


z=z+ncb 


/P 


b+z 


z=z+l 


/I 


b+z 


z=z+npb 


Ao (punch) 


z=0 






b+z 


z=z+l 


/^ 


b+z+ncb- 


•ewv+1 


zz+ncb /2 


b+z+ncb- 


■ewv+1 


z=z+ncb /3 


b+z+ncb- 


ewv+l 


z=z+nob /4 


b+z+ncb- 


■ewv+1 


z=z+ncb /5 


b+z+ncb- 


-ewv+1 


z=z+ncb /6 


b+z 


z=z+l 


/"^ , . . 


b+z+npb-pwm+1 


z=z+npb /lO (punch) 


Z=:0 






b+z 


z=z+l 


^?- 


b+z 


z=z+ncb 


?■ 


b+z 


z=z+ncb 


P 


b+z 


z=z+ncb 


> 


b+z 


z=z+ncb 


^5 


b+z 


z=z+ncb 


^f" 


b+z 


z=z+l 


/7 


b+z 


z=z+npb 


/lO (ptinch) 


b+z 






law rbl 


/rpb 




jmp . 2 






law ral 


/rpa 




xct i rrO 




nop 






dap rab 






rsf 






xt • 






jmp rr8-l 




rpa-i 


/set up 




law i 3 






dac rOO 






lac cl 






dac 1 rrO 




lac c2 






dac rrs 


/buffer empty 


dac srr 


/reader running 


law b 






dap rip 






dap rop 






lio c2 






dio res 






jsp srv 






nop 






lio cl 






dio rsl 


/clear rsl switch 


skp i 


/skp i if buffer empty 


jmp rop 






xct res 


/empty 




jmp rs2 


/rsl entry 


law 20 


/normal 


entry 


siw i 






jmp dms 






lio (jmp 


1 rr9 










dio 


rsi 






Jmp 


ret 




rop. 


lac 


• 






dac 


t 






lio 


c2 






idx 


rop 






sad 


(lac 
(lac 


erb 




lac 


b 




dac 


rop 






sub 


rip 






sza 


i 






dio 


rrs 


/buffer empty 




sma 








sub 


(erb- 
(-rwm 


b 




sad 






dio 


srr 


/buffer nearly empty 




lio 


t 




rab. 


Jmp 


• 


/rpa-rpb switch 


ral. 


clavswp 






rcl 


8s 






dio 


prb 






usn 






res. 











jmp 


rsi 1 


/rsi entry 




siw 


i 


/noxiual entry 




dio 


2 




ret. 


law 


1 






add 


1 






dap 


1 






spn 








sen 






xel. 


xct 


• 






jmp 


xeO 


/proceed trap 




Jmp 


rii6 




rbl. 


spi 


i 






jmp 


rr8 1 






lac 


prb 






ril 


2s 






rcl 


6s 






dac 


prb 






isp 


rOO, 






Jrap 


rrS 1 






law 


i 3 






dac 


rOO 






lio prb 






Jmp 


res-1 




rOO, 







/rpb count 


rr9. 


lio 


cl 






xct 


rrs 






jmp 


rrS 




rs2. 


rsf 








Jiup 


rsi 1 




prb. 







/reader buffer 


rr. 


xt j 

nop 

usf 


. rrO 


/rrb 




lio prb 






dio 


2 





^ ^•'" i 



; 



m 



pt». 


law 2 




rcl 6 s 




Jmp ppO 


pa. 


lac 2 


ppO, 


xct • 




dac t 




spn 




jsp sat 




law 2 




sbf i 




jmp dms 




llo t 




jsp itf 




jmp ret 


ti. 


xct ra2 




jmp z3 




sen 




jsp sat 


zi9. 


law 4 




sps 




sbe i 




jmp dms 




Jsp ite 




xt ra2 




Jrap zlO 


zl8. 


dio 2 




jmp ret 


to. 


sen 




Jsp sat 


z25. 


law to3 




sps 




0*mp ifO 




law 10 




sbf i 




jmp dms 


to3. 


lio 2 


ra2. 


xt • 




Jmp z50 


Z51, 


jsp itf 




jmp ret 


ixl. 


dp . 4 




law 1 




add 1 




dap 1 




jmp . 



/PPt> 
/ppa 



w? 



/tyi 



/tyo 



/idx pc 



z3^ Jmp ti 2 

/selectric translator 

zlO, lai 

add z8l 
add (z99 
dap • 2 
law 177 
and • 
sas z31 
sad z32 
Jmp zll 





scr 6s 




ril 6s 




sal 6s 




sad z82 




Jmp zl8 




dap z82 




dio z83 




lio z32 




sza 




lio z31 




law z21 




jmp . 3 


z21. 


law ti 2 




lio z83 




dap z3 




Jmp zl8 


zll. 


cli 




sas z32 




lio (100 




dio z8l 




Jmp zl9 


z50. 


swp 




and (77 




sas z31 




sad z32 




Jmp z56 


z52. 


add z82 




add (z99 




dap » 1 




lac • 




rcl 6s 




ral 7s 




and (100 




sad z8l 




Jmp z51 




dap z8l 




lio z65 




sza i 




lio z66 




Jsp itf 




Jmp z25 


Z56, 


cli 




sas z32 




lio (100 




dio z82 




Jmp z52 


z31. 


74 


z32. 


72 


z65. 


65 


z66. 


66 



,/■" / 



/tyo translator 



/upper case fio-dec 
/lower 

/upper case selectric 
/lower 

z8l, 

z82, 

z83, 

/tables for selectric (two tables in one) 

/tabl=0-6 0-5=6 bit selectric key code 6=case 

/tab2=ll-17 12-17=6 bit concise code ll=case 

/tab2(tabl(x))=x for all legal characters space if illegal 

/concise=tab2(case selectric key)for input 



/selectric=tabl(case concise) for output 

/if case bit changes, transmit appropriate extra case shift 



€^"\ 



z99. 



070073 


/space,. 


770000 


/I* ill 


740071 


/2,i 


750070 


/3,h 


720077 


/4,c.r. 


730077 


/5*index=c.r. 


700036 


/6,tab 


710000 


/7, space 


630066 


/8,f 


620067 


/9,g 


070064 


/ill,d 


070065 


/ill,e 


070062 


/ill,b 


070063 


/ill^c 


070154 


/ill,+ 


070061 


/ill,a 


760057 


/o,( 


624000 


//=uc9,ill 


540051 


/s,r 


550050 


/t,q 


520075 


/ubackspace 


530000 


/v,ill 


500000 


/w,ill 


510000 


A, ill 


430046 


/y*o 


420047 
070044 


/z,p 


/ill,m 


400045 


/**n 


470042 
440043 


/black, k 


/red,l 


060054 


/tab,- 


070041 


/ill,J 


004033 


/center dot=colon. 


370000 
340031 


/J, ill 


/k,z 


350030 


/i,y 


320035 


/m, red 


330000 


/n,ill 


300000 


/o,ill 


310034 


/pblack 


230026 


220027 
070024 


/r,x 


/ill,u 


070025 


/ill,v 


360022 


A,s 


560023 


/),t 


4o4055 


/semicolon, ) 


200173 


/(,asterisk=x 


070133 


/ill,= 


170000 


/a, ill 


140011 


A,9 


150010 


/c,8 


120000 


/d,ill 


130074 


/e, upper case 


100072 


/f, lower case 


110000 


/g,ill 


030006 


/h,6 


020007 

660004 


/1,7 


/lower case, 4 


000005 


A, 5 


654002 


/upper case, 2 



240003 /backspace , 3 

070020 /ill,0 

040001 /c.r.,1 

074o40 /space, colon=center dot 

75^100 /"=uc3,ill 

724171 /»=uc4,i 

744170 /dollar sign="-,h 

764177 /D=ucO,c.r. 

634177 /uc8=V , lndex=c . r • 

574136 /a=uc star, tab 

734100 /<, space 

704166 />,f 

714167 /t,g 

074164 /ill,d 

074165 /ill,e 

074162 /ill,b 

074163 /ill,c 

074120 /ill,-> 

074161 /ill, a 

164157 A, [ 

6o4lOO /question mark, ill 

544151 /s,r 

554150 /t,q 

524175 /u, backspace 

534100 /v,ill 

504100 /w,ill 

514100 /x,ill 

434146 /y,o 

424147 /z,p 

074144 /ill,m 

600145 /,n 

474142 /black, k 

444143 /red,l 

064l40 /tab, 

074l4l /ill,T 

364056 / ,overbar=semicolon 

374100 /T,ill 

344131 /k,z 

354130 /l,y 

324135 /m,red 

334100 /n,ill 

304100 /o,ill 

314134 /p,black 

234126 /q,w 

224127 /r,x 

074124 /ill,u 

074125 /ill,v 
160122 /+,s 
564123 /],t 

774155 /,] 

204l06 / [ , backarrow=A 

074121 /ill,? 
174100 /a, ill 
144021 /b,/(uc9)=/ 
154105 /c , downarrow=V 
124100 /d,ill 
134074 /e, upper case 
104072 /f, lower case 
114100 /g,ill 
034110 /h,> 

024111 /i,t 

660102 /lower case,»=uc4 

570107 /x=star^< 



^^ 



r- f 



65^103 /upper case,~=dollar sign ^ 7 

244101 backspace, "=rev slash{uc3) § / / i^ 

074104 /lll,D=uc4=/ 

04156 /c.r, I 

ar, lac /arq 

spa 

cma 

dac t2 

law 177 

and 1 act 

dac t 

cma 

dac tl 

law cod 

dap arl 
arl, lac • 

sza 1 

Jmp ppq 

sad t2 

Jmp arf 

law 2 

adm arl 

jmp arl 
arf, idx arl 

lac i arl 

lio 

spi 1 

rar 9s 

and (777 

add arn 

dap . 1 

jmp « 

ppq, law flexo q 

xor 

and (777770 

sza 
arn, jmp err 

law 7 /+ql to q7 

and 

sza i 

jmp err 

xt ra2 

jmp no 

add (xrg 

dap axi 
axl, lac • 

and tl 

sza 

jmp no 

jsp dxe 

lac t 

dac i axl 

law 7 

and 

rar 6s 

adm 1 awl 

jmp yew 

define f x,p,m 

flexo X 
[P+ERR]xl000 ra-err 
terminate 

/arq dispatch table 



cod, f r,pr,mr 

f P*PP^mp 
f af,paf,inaf 
f sf,pss,maf 
f lf,plf,inlf 
f xf,pxf,err 
f tf,ptf,err 
f f,pff,mff 
f mb,pmb,err 
f ax,pax,err 
f sx, sax, err 
f X, err, max 
f cl,inm,lm 
f k,pk,err 
f t>,pt,err 
f q,err,mq[ 
f nf,pnf,err 


lac pfn 
rar 6 s 
dac 
yes, siw 

jsp ixl 
jmp ret 

dac 
no, siw i 

Jsp ixl 
jmp ret 

/arq routines 

err, jmp ill 



V ^ 



/+r 






pr. 


lac 


tl 




and 


rw 




sza 






jmp 


no 




lac 


t 




dac 


rw 




lac 


c2 




dac 


i rrO 




lac 


cl 




dac 


rsl 




jmp 


yes 


/-r 






rat*. 


lac 


err 




dac 


i rrO 




lac 


tl 




and 


rw 




dac 


rw 




sza 






jmp 


no 




lac 


cl 




dac 


srr 




dac 


rsl 




jmp 


no 


rw 







/^ 






PP* 


lac 


tl 



/reader word 





and 


pw 




sza 






Jmp 


no 




lac 


t 




dac 


pw 




lac 


cl 




dac 


i PPO 




jmp 


yes 


/~p 






mp. 


lac 


err 




dac 


i PPO 




lac 


tl 




and 


pw 




dac 


pw 




Jmp 


no 


pw. 





/punch word 


Ak 






pk. 


Jsp 


. 4 




rcr 


5s 


Ab 






pt. 


Jsp 


. 2 




rcr 


9s 




dap 


. 4 




law 17 




lia 






and 


2 




xct 


• 




dac 


tl 




dio 


t 




lac 


i aw2 




craa 






and 


t 




and 


kbw 




sza 






jmp 


no 




lai 






xor 


i aw2 




and 


tl 




xor 


kbw 




dac 


kbw 




lal 






xor 


i aw2 




and 


tl 




xor 


i aw2 


ptx. 


dac 
lia 
la2 


i aw2 




Jmp 


yes 


kbw. 





/knob and bi 


Anf 






pnf. 


law 


sd 




dap pnl 




dzm 





pnl. 


lac 


• 




and 


t 




sza 






idx 







idx 


pnl 




sas 


(lac sd426 



er / i^ 





jmp 


pni 




lac 







rar 


6s 




Jmp 


no-1 


/+tf 






ptf. 


dzm 







law 77 




and 


2 




jda pfn 




lac 


i pfp 




jmp 


no-1 


/+mb 






pmb. 


lio 


i ufl 




law 


1 




sni 


i 




law 


2 




rar 


6s 




Jmp 


no-1 


Axf 






pxf. 


cla 






lio 


2 




rcl 


6s 




Jda pfn 




lio pfp 




dio 


t 




law 77 




and 


2 




Jda pfn 




lac 


i t 




lio 


i pfp 




dio 


i t 




dac 


i pfp 




Jmp 


yes 


/+lf 






Plf, 


Jsp gaf 




Jmp 


no 




Jsp 


gpf 




Jmp 


no 




dzm 


t2 




Jmp as3 


/-If 






ralf. 


law 


i nuf 




dac 


t2 




lac 


i dfl 




dac 


pfp 




law 


i 1 




adm 


pfp 




lac 


i pfp 




sza 






Jmp 


mi2 




isp 


t2 




Jmp 


mlf 4 




Jmp 


no 


inl2. 


Jda 


afn 




Jmp 


dsf 


/+af 






paf. 


cla 






Jmp 


. 2 


/+sf 






pss. 


lac 


(add 






dac t2 

cla ^f^'" f L..,f 

Jmp • 2 

/-af,-sf 

maf , law 600 

dap dss 

law 77 

and 2 

sza 1 

jmp af2 

jda pfn 
afi, lac pfn 

dac p 

law i 7777 

and 2 

sza i 

Jmp af 4 

jda afn 
af3, lac p 

Jda pfn 
dss^ skp 

Jmp asf 

jmp dsf 

af4, law 77 
and 2 
jda pfn 
lac i pfp 
sza 

Jmp af 3-1 
xct dss 
jsp gaf 
Jmp no 
jmp af 3 

af2, law i 7777 

and 2 

sza i 

jmp yes 

jda afn 

lac 1 afp 

and t 

sza 1 

jmp af 5 

law i nuf 

add i dfl 

dac pfn 
apr, lac 1 pfp 

sad afn 

jmp af6 

idx afp 

sas i dfl 

jmp apr 

jmp • /can»t find it 
af5, xct dss 

jsp gpf 

jmp no 

jmp afl 
af6, jsp pfp 1 

jmp afl 

/-q 

niq* jsp dxe 
jmp new 



mff , jsp daf 
Jmp yes 

/+f 

pff , law i 7777 
and 2 
sza i 
jrap yes 
ral 6s 
cma 

dac tl 
dac t2 
dac p 
jsp gaf 
jmp no 
law 1 1 
adm apx 
isp tl 
Jmp gaf 7 
jsp gpf 
Jmp no 
law i 1 
adm ppx 
isp p 
jmp gpf 7 

ffl, Jsp gaf 
jmp • 
Jsp gpf 
jmp • 
law 177 
and 1 afp 
ior t 
dac i afp 
lac afn 
dip i pfp 
isp t2 
jmp ffl 
jmp yes 

/+cl 

mm^ 

ufi, lac • 



sza 

jmp yes 

lac ucO 

sza i 

jmp mmO /core empty 

lac ucl 

sza i 

jmp mml /core 1 empty 



jsp gaf 
jmp no 
lac (lac 
dac i afp 
lac afn 
dac i ufl 
yew, siw 

jsp ixl 
jmp rew-1 

mmO, lac ufl 
dap ucO 
lac (add ucO 
jmp yew-1 

mml, lac ufl 



dap ucl 

lac (add ucl 

jmp yew-1 6^ 

/-cl 

Im, lac 1 

and (170000 

sza 

Jmp ill 

lac ufl 

jda crl 
new, siw 1 

Jsp iXL 

jmp rew-1 

Z+ax 
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